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QL CORNER 


Believe it or not, 1993 is the tenth anniversary of the launch of the 
QL! It seems like yesterday that I assembled my QL kit which was 
purchased from A+ Response. I useed it for approximately two weeks to 
get the feel of it and then packed it up to be used some other time 


in the near future - one year later and it has been my computing 
partner ever since. 


Several years later, Sinclair Research Ltd. sold out to Amstrad and 
all production of the QL was over - but the QL would not die! Thanks 
to QL users, the many QL user groups around the world and the few 
devout hardware and software suppliers who didn't give up the ghost; 
the QL will live on for some years to come. 


Jurgen Falkenberg of Computer Technik, Germany, is one hardware 
manufacturer who keeps on producing quality hardware for the QL. His 
Keyboard 90 interface provides full compatibility with a QL and any 
XT-AT old or new keyboard, by selecting the keyboard with the use of 


two slide switches. Many additional key functions are also 
available. 


A QL hard disk interface is also available which will support 20 Mb, 
80 Mb and 122Mb hard disks housed in a case with power supply or if 
you wish, all of the components are available separately; the QL-HDD 
card, HDD card with OMTI-controler and the various hard drives. 


Falkenberg's latest hardware item is the QL-2000, a tower case for 
the QL in kit form or built up to several different specs. The 
completed version comes with a QL, KB 90 interface, floppy and hard 
disk interface, a Gold Card, a 3.5", 1.44 meg floppy drive, a 20 Mb 


hard drive and a 102 key keyboard at DM 2499. The Toewr case measures 
5 x 13 x 17 inches. 


Bob Dyl, publisher of the International QL Report will 


QL-2000 computer at the  'Miracle in Newport 93' show 
June 5th. 


display his 
on Saturday, 


There are many more hardware items listed in  Falkenberg's catalog, 
Such as a QL-ROM card and various QL-BUS drivers. Why not send him 
two International Reply Cupons for his multi-page catalog of hardware 
and software items. His address is: Computer Technik, Jurgen 
Falkenberg, Thanweg 36 , D-7539 Ersingen, Germany. 


A good source of new surpluss items such as switching powersupplies 
for floppy or hard drives, prices range from $6.95 to $25.95. Voltage 
regulators, transformers, switches, semi-conductors, connectors for 
diskdrive cables, tools and so on. He is the most reliable supplier 
I use. Everything that Marlin P. Jones sells is guaranteed to work! I 
have been purchasing items from this firm for approximately 20 years. 
Two years ago he had advertised NEW TEAC 5-1/4", 720 K drives at 
$25.00. I ordered two of them. One drive was not in alignment, I 
called them, stated the problem. they requested that I return the 
defective drive and paid for the shipping to them. Request a catalog: 


Marlin P. Jones & Assoc., P. O. Box 12685, Lake Park, FL 33403-4685. 
Telephone: 407-848-8236. 


Just a reminder that in a few weeks many of the U.K. hardware and 
software suppliers will be attending the 'Miracle at Newport 93' 


show. It will be at the salvation Army Building on Memorial Blvd; 
Newport RI. Time 1 PM to 6 PM. 


See you next month....Bob Gilder 


TECH TALK 


USING ABACUS TO PREPARE DATA FOR STATISTICS PROGRAM 
By Bob Malloy 


Those of you who belong to Quanta, and therefore have access 
to their excellent library of programs, may have wished for a 
way to put existing data into Timo Salmi’s Statistics program 
without having to retype everything. Fortunately there is a 
way, if the data you wish to analyze is in Abacus. Simply 
load your data Cin columns) and then follow the instructions 
which follow. 


INSTRUCTIONS : 


Have text at first row 

Balance of column should have numbers 

Text should have no spaces 

If column width is 10 then text should be no more than 8 
Print the data to a FILE. NO BORDER 

An example of how the data should look is below. 


BLOCK SANIFILL SARALEE CONVEX 
19.25 14. 375 24 m. 5 
18. 75 14. 75 24. 375 5,375 
19.25 14.25 24. 75 5.375 

19:379 14.5 24.75 5.5 
19 14.5 24.75 5.5 

18. 75 14.375 24. 25 5.375 
18. 375 14 23.75 5.25 
18.25 14 23:259 5:25 
17. 875 13.75 23 5 
18.375 14.25 25. 875 4. 75 
18.25 14.25 29 4.75 
18. 625 14. 375 26. 125 4.5 
15,25 14.375 26. 125 4.625 
19-125 14.5 26 4. 625 
18 14.5 25 4. 625 

18 14. 375 25.125 4. 625 
17.875 > 14:375 23 4.625 
ITOSTO 14. 75 24. 875 4. 75 
E7379 15.75 24 4. 875 
L7 15.5 24.125 4. 875 

17 15.59 24.5 4. 75 
17125 15:5 29129 4. 875 
LTD 15:025 25.375 4. 875 
17.625 15. 75 25: 875 5.125 
i775 16 26 5.125 
17.375 16.29 25.319 5.125 
18 16.5 25.379 4. 875 
17.875 16.25 26 4. 75 
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ADVICE, 2o68 
Dick Wagner 


This 2068 program features a bit of 
wisdom from Charles F. Kettering, 
long time inventor at General 
Motors. The character codes in the 
DATA statements produces the text. 
Three READ commands are used to 
format the text. 


It should be noted that "n" for each 


READ loop must equal the length of 
each statement. 


10 REM type this progam and ge 

t some sound advice 
20 REM DICK F. WAGNER, NOV. 19 
92 

100 FOR n=1 TO 86 
"110 READ A: PRINT CHRS A; 

120 NEXT n 

125 PRINT : PRINT 

130 FOR n=1 TO 26 

140 READ B: PRINT CHRS B; 

150 NEXT n 

160 PRINT : PRINT : PRINT 

170 FOR n-1 TO 20 

180 READ C: PRINT CHK$ C; 

190 NEXT n 
300 DATA 77,121,32,105,110,116, 
101,114,101,115,116,32,105,115,3 
2,105,110,32,116,104,101,32,102, 
117,116,117,114,101,32,32,32,32 

310 DATA 98,101,99,97,117,115,1 
01,32,73,39,109,32,103,111,105,1 
10,103,32,116,111,32,115,112, 101 
;,110,100,32,1186,104,101,32,32,11 
4,101,115,116 — 

320 DATA 32,111,102,232,109,121, 
32,108,105,102,101,32,116,104,10 
1,114,101,46 

330 DATA 32,32,32,32,32,32,67,1 
04,37,114,108,101,115,32,70,46,3 
2,75,101,116,116,101, 114,105,110 
7193 

340 DATA 84,72,69,32,67,72,73,7 
3,67,69, 32, 73, 83, 32, 89, 79, 85, 82, 

83, 46 


ADVICE 1TTrs1000 
Dick Wagner 


This program produces the same text 
for the TS 1000 that the program 
“ADVICE 2068" does. The data code is 
different because of the difference 
between the 2 computer types. 
Luckily, the character codes for the 


TS 1000 are exactly 27 digits less 
than for the 2068. Comparing code 
tables, numbers are 20 digits less 
than the 2068 but none are used 
here. 


The data is in 5 strings, about one 
for each text line. As the data is 
in string form, the separating 
commnas require special treatment as 
used in the program. This method 
requires the program to jump to line 
200 each time a comma is read. 


Line 205 simply converts the text 
data strings to numeric form so line 
210 can print it. To prove this add 


a PRINT F; immediately after line 
205 : 


Considerable testing was required as 
the program development progressed, 
but I was working with my 2068 
computer because I wished to do the 
hard copy on my large printer. The 
data didn’t make sense except that 
spaces were question marks, and 
periods were 6s. My solution is in 
the article "READ TS 1000 ON A 
2068". ^ 

The use of strings to input 
and change the data into 
digits, is one of several ways of 
simulating READ & DATA such as is 
available on a 2068 computer. 


data, 
numeric 


FAST puts the program thru nicely 
but pressing the ENTRY key is 
required to show the display. Using 
SLOW displays the characters being 
printed on the screen. Take your 
pick by adding a fast or slow line 
to the program. 


5 REM THIS TS 1000 PROGRAM RE 
ADS STRINGS TO PRINT OUT A MESSA 
GE 

10 LET 4$-"50,62,0,46,51,57,42 
,55,42,56,57,0,46,56,0;,46,51,0,5 
7,495,42,0,43,58,57,58,55,42, " 

12 LET B$-"0,0,0,0,39,42,40,38 
,58,56,42,0,46,0,38,50,0,44,52,4 
6,51,44,0,57,52,0,56,53,42,51,41 
,0,57,45,42," l 

14 LET C$-"0,55,42,56,57,0,52, 
43,0,50,62,0,49,46,43,42,0,57,45 
,42,55,42,27," 

16 LET D$-"0,0,0,0,0,0,0,0,0,0 
,0,40,45,38,55,49,42,56,0,43,27, 
0,48,42,57,57,42,55,46,51,44," 

18 LET E$-"0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,57,45,42,0,40,45,52,46,40,4 
2,0, 46, 56, 0, 62, 52, 58, 55, 56, 27, " 

20 LET AS=AS+BS+4+CS+DS+ES 

120 LET M=1 
130 FOR N-1 TO LEN A$ 


140 IF ASC(N)="," THEN GO SUB 20 
Oo 


150 NEXT N 

200 LET F$-A$(M TO N-1) 
205 LET F=VAL F$ 

210 PRINT CHR$ F; 

220 LET M-N«1 

230 RETURN 


n AAGO A E ELG 
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READ TS 1000 
ON A 2068 
Dick Wagner - 


As it was explained in my .article 
ADVICE TS1000, there was a need to 
get a hard copy of the TS 1000 
program on my large printer. For 
editorial reasons, I also wished to 
have a properly running program 
without errors for the TS . 1000 
computer. To do this required the 
actual program to be tested without 
typing the program on the TS 1000. 
This meant making a LLIST from the 
2068 with a TS 1000 program, 
Properly tested. The inclussion of 
character codes is what made it a 
problem. 


The program.-following will not work 
on the TS 1000 because it includes 
the conversion to 2068 code. Use the 
program in the TS 1000 article. TS 
2068 users can use’ the program as it 
converts the TS 1000 codes to 2068 
character codes, producing the 
identical results. The program in 
ADVUCE 2068 will look a little 
different but the text is 
identical. 


The character codes for the TS 1000 
are exactly 27 less than the 2068 
codes for the capital letters. By 
adding 27 to the TS 1000 codes the 
text will be correct for the 2068 
display. My program does exactly 
that by adding 27 to each code in 
the strings. Line 204 does this. 


Two characters ased in the —program 
do not work properly by adding 27 to 
their codes, space and period. As 27 
is added to them automatically lines 
206 and 207 compensate for the 
differences. A question mark shows 
up for "space", and a "6" is 
displayed where the periods should 


be, without making the mentioned 
corrections. 


One problem vith making a continious 
A$ is that the line formatting must 
be made in the strings. That is the 
reason for so many zeros being used. 
If each string had been processed 
separately then formatting would 
have been easier. This would have 
required sending each string to a 
subroutine for printing. 


3 REM THIS PROGRAM CONVERTS T 
S1000 TEXT CODE TO 2068 TEXT COD 

E. LINE 204, 27 IS CHANGED TO 20 
FOR NUMBERS. 

5 REM BY DICK WAGNER, NOV. 19 
92 n . : 

10 LET A$="50, 62,0, 46,51,57,42 
755, 42,56,57,0,46, 56,0, 46,51,0,5 
7,45, 42, 0, 43,58, 57, 58,55, 42, " 

12 LET BS="0, 0,0, 0,39, 42, 40, 38 
758,56, 42, 0,46, 0, 38, 50, 0,44, 52,4 
6,51,44,0,57,52, 0, 56,53, 42, 51,41 
,0,57,49,42," ` 

14 LET C$-"0,55,42,56,57,0,52, 
43,0,50,62,0,49,46,43,42,0,57,45 
,42,55,42,27," 

16 LET D$="0,0,0,0,0,0,0,0,0,0 
,0,40,45,38,55,49,42,56,0,43,27, 
O, 48, 42,57,57, 42,55, 46,51,44," 

18 LET E$-"0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0. 
,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,57,45,42,0,40,45,52,46,40,4 
2,0,46,56,0,62,52,58,55,56,27," 

20 LET A$=A$+B$+C$+D$+E$ 

120 LET M-1 

130 FOR N=1 TO LEN A$ : 

140 IF AS(N)="," THEN GO SUB 20 

o 
150 NEXT N 
200 LET F$=A$(M TO N-1) 
204 LET F=VAL F$+27 
206 IF F=27 THEN LET F=32 
207 IF F=54 THEN LET F=46 
210 PRINT CHR$ F; 
220 LET M=N+1 
230 RETURN 


TOS GENIUS 
AT WORK 


100 BORDER 1: CL 

120 PRINT AT ø ii; 
T 1;"SINE URUE" 

i392 PRINT AT 


AKING WAVES for the 16K 
Ml Srectram will work out the 
average RMS and peak 

values of an alternating sine wave. A 


menu is displayed and you must 
select one of the functions. If you 


INK 2; 
4.2: "PEAK R.M.S. a 


: 17,2; “2---RMS. 
18,2; “3---AVER “ 
Sae r AGE VALUE 620 


470 GO TO 


BRIGH 510 PRINT 


ALU 


nd AVERAGE VALUES 
209 PLOT 8,119: DRAW 255,0 ALSS INPUT 
210 FOR @=6 TO 255 549 LET 
220 PLOT O,110440zSIN '(Q^64xPI) 
230 IF 9=255 THEN GO TO See 1; "RMS 
338 Seine ar 278 83 j 
y : LA 
T_FUNCTION" AA A S Soe GO SU 
ugi9, PRINT mr 16,2; "1-—-PEAK VAL 610 PRINT 


UHLUE"; AT vE* 


NPUT “Select 1, 2,o0r 3";A * 
gone IF Ast OR ADS THEN’GO To’ 32 ALUE” PRINT “PERK URLUE ";P 
640 LET Q-P£0.537 

340 IF n-1 THEN GO TD 499 S858 PRINT AT 18,4; INK 2; BRIGH 
350 IF A=2 THEN GO TO See 1929.BüINBeE VALUE’ = ";o 

LLLA AGI d ieee TP TaN 66a GO SUB see 

4. m = T I 

412 PRINT AT 14,10; “PERAK VALUE 2000 DoR gei TO 21: PRINT AT G, 
420 PRINT AT 15,7; “INPUT RMS. V ; eee 

ALUE " ba $a 1619 RETURN 

«3€ INPUT nee. VALUE CER 1920 PAUSE 209: FOR 90-14 TO 21: 
440 LET Q-Rx1.4ii4 1220 RT BO 
REC PRINT AT 18,4; INK 2; BRIGH ^. NEXT © 

27 = “3 1830 RETURN 
46@ GO SUB 1920 3900 SAVE "sine" LINE 10 


want to find the peak value the pro- 
gram will ask you to enter the known 
RMS value; itis the other way round 
to find the RMS value and if you 
want to find the average value no 
input is required. 


5990 GO SUB 1009 
c RT 
SEM C'T AT 15,7;"INPUT PEAK VU, 


Q=P#0.797 

S5@ PRINT AT 18,4; INK 2; 
VALUE = ";Q 

GO SUB 1628 


GO SUD 19000 


PRINT AT 15,5,"INPUT PEAK U 


sea 
15,7; “INPUT RMS. U 


“PEAK VALUE ";P 


BRIGH - 


300 
, 
AT 14,10; “AVERAGE VAL 


The graphics of the program are 
good and make this a fine education- 
al program and mathematical aid. 
The program was sent by David 
Price, of Caerphilly, Glamorgan. 


